angle_rad_2d Function

function angle_rad_2d(p1, p2, p3)

************80

ANGLE_RAD_2D returns the angle swept out between two rays in 2D.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	p1(dim_num)
real(kind=8)				::	p2(dim_num)
real(kind=8)				::	p3(dim_num)

Return Value real(kind=8)

Variables

Type	Visibility	Attributes		Name		Initial
integer(kind=4),	public,	parameter	::	dim_num	=	2
real(kind=8),	public		::	p(dim_num)
real(kind=8),	public,	parameter	::	pi	=	3.141592653589793D+00